home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_ghostscript.idb / usr / freeware / lib / ghostscript / 3.33 / packfile.ps.z / packfile.ps
Encoding:
Text File  |  1998-05-21  |  9.9 KB  |  329 lines
  1. %    Copyright (C) 1994, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility to
  7. % anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU Ghostscript General Public License for full details.
  10. % 
  11.  
  12. % packfile.ps
  13. % Pack groups of files together, with compression, for use in
  14. % storage-scarce environments.
  15.  
  16. % ****** NOTE: This file must be kept consistent with gs_pfile.ps.
  17.  
  18. % ---------------- Huffman coding utilities ---------------- %
  19.  
  20. % We count runs of zeros, and individual byte frequencies separately
  21. % depending on whether they follow or do not follow a run of zeros.
  22. /zruns 256 array def
  23. /zfreq 256 array def
  24. /nzfreq 256 array def
  25. /maxcode 13 def        % max code length, must be between 10 and 16
  26. /maxzrun 100 def    % max length of zero run, must be <= 100
  27. /statbuf 10000 string def
  28.  
  29. % Initialize statistics.
  30. /initstats        % - initstats -
  31.  { 0 1 255 { zruns exch 0 put } for
  32.    0 1 255 { zfreq exch 0 put } for
  33.    0 1 255 { nzfreq exch 0 put } for
  34.  } bind def
  35.  
  36. % Accumulate statistics from an individual file.
  37. /addstats        % <file> addstats -
  38.  { 0
  39.     { 1 index //statbuf readstring 3 1 roll
  40.     % Stack: file eof numzeros data
  41.        { dup 0 eq
  42.       { pop 1 add
  43.       }
  44.       { 1 index 0 ne
  45.          { exch 255 min
  46.            //zruns exch 2 copy get 1 add put
  47.            0 exch //zfreq
  48.          }
  49.          { //nzfreq
  50.          }
  51.         ifelse
  52.         exch 2 copy get 1 add put
  53.       }
  54.      ifelse
  55.        } forall
  56.       exch not { exit } if (.) print flush
  57.     } loop
  58.    pop closefile
  59.  } bind def
  60.  
  61. % Compute the Huffman codes from the statistics.
  62. /statcodes        % - statcodes <array>
  63.  { maxcode 1 add 256 add maxzrun 2 sub add 1 add array    % full array
  64.    dup maxcode 1 add dup 2 index length exch sub getinterval    % data
  65.     % Put statistics into array
  66.    dup 0 1 255
  67.     { zfreq 1 index get nzfreq 2 index get add put dup
  68.     } for
  69.    0 zruns 1 get put
  70.    256 zruns 2 maxzrun 2 sub getinterval putinterval
  71.    dup dup length 1 sub 1 put    % EOD
  72.    maxcode .computecodes
  73.  } bind def
  74.  
  75. % ---------------- File handling ---------------- %
  76.  
  77. % Copy one file to another.
  78. % Close the input file, but not the output file.
  79. /copyfile        % <infile> <outfile> copyfile <outfile> <length>
  80.  { 0 mark statbuf
  81.     { 4 index 1 index readstring
  82.       exch 5 index 1 index writestring
  83.       length 5 -1 roll add 4 1 roll
  84.       not { exit } if (.) print flush
  85.     } loop
  86.    cleartomark 3 -1 roll closefile dup == flush
  87.  } bind def
  88.  
  89. % Represent a Type 1 font in its most compressed format.
  90. % Requires -dWRITESYSTEMDICT to run.
  91. % Does not close the output file.
  92. (wrfont.ps) run
  93. /compressfont        % <fontname> <outfile> compressfont <outfile>
  94.  { exch save
  95.    systemdict /executeonly /readonly load put
  96.    systemdict /noaccess /readonly load put
  97.    systemdict readonly pop
  98.    wrfont_dict begin
  99.      /binary_CharStrings true def
  100.      /binary_tokens true def
  101.      /encrypt_CharStrings false def
  102.      /standard_only false def
  103.      /use_lenIV 0 def
  104.      /smallest_output true def
  105.    end
  106.    exch findfont setfont
  107.    1 index writefont
  108.    restore
  109.  } bind def
  110.  
  111. % ---------------- Main program ---------------- %
  112.  
  113. % Find the length of a file.
  114. /filelength        % <filename> filelength <length>
  115.  { status { pop pop exch pop } { -1 } ifelse
  116.  } bind def
  117.  
  118. % Define the header string for a compressed file.
  119. /beginfilestring
  120. ({dup token pop exch[/MaxCodeLength 2 index token pop/Tables 4 index token pop
  121. /EndOfData true/EncodeZeroRuns 256 .dicttomark
  122. /BoundedHuffmanDecode filter/MoveToFrontDecode filter
  123. [/BlockSize 4 -1 roll .dicttomark/BWBlockSortDecode filter
  124. }) readonly def
  125.  
  126. % Write a 16-bit big-endian non-negative integer on a file.
  127. /write16        % <file> <int> write16 -
  128.  { 2 copy -8 bitshift write 255 and write
  129.  } bind def
  130.  
  131. % Compress a group of files together.
  132. % Return a dictionary in which the keys are the input file names
  133. % and the values are [startpos length] in the uncompressed concatenation.
  134. % Does not open or close the output file.
  135. /tempname (t.em) def
  136. /packfiles        % <filenames> <outfile> packfiles <outfile> <posdict>
  137.  {    % Concatenate files to a temporary file.
  138.    tempname (w) file
  139.    dup /MoveToFrontEncode filter
  140.    dup <<
  141.     /BlockSize 1000000
  142.    >> /BWBlockSortEncode filter
  143.         % Stack: filenames outfile tempfile mtfe bwe
  144.    5 -1 roll dup length dict 0 6 2 roll
  145.     {        % Stack: outfile posdict pos tempfile mtfe bwe infilename
  146.       dup ==only dup (r) file 2 index copyfile exch pop
  147.       dup 7 index 4 2 roll 7 index exch 2 array astore put
  148.       5 -1 roll add 4 1 roll
  149.     } forall
  150.    closefile closefile closefile pop exch
  151.         % Stack: posdict outfile
  152.     % Compute an optimal Huffman code.
  153.    initstats
  154.    tempname (r) file addstats
  155.     % Actually compress the file.
  156.     % Write the decompression information on the output first.
  157.    dup tempname filelength write==
  158.    dup maxcode write==
  159.     % Write the code table as a homogenous number array.
  160.    statcodes exch
  161.      dup 149 write dup 32 write dup 2 index length write16
  162.      exch { 2 copy write16 pop } forall
  163.    dup <<
  164.     /MaxCodeLength maxcode
  165.     /EndOfData true
  166.     /EncodeZeroRuns 256
  167.     /Tables statcodes
  168.    >> /BoundedHuffmanEncode filter
  169.    tempname (r) file exch copyfile pop closefile
  170.    exch
  171.  } bind def
  172.  
  173. % Squeeze a font to a .cpf file in anticipation of compression.
  174. /squeezefont        % <fontname> squeezefont <filename.cpf>
  175.  { dup type /nametype ne { cvn } if
  176.    dup
  177.     { dup type /stringtype eq { exit } if
  178.       Fontmap exch get
  179.     }
  180.    loop
  181.         % Stack: fontname filename
  182.    dup dup
  183.     { (.) search not { exit } if
  184.       exch pop exch 3 -1 roll pop
  185.     }
  186.    loop
  187.         % Stack: fontname filename noextname extension
  188.    exch
  189.     { (/) search not { (\\) search not { exit } if } if
  190.       pop pop
  191.     }
  192.    loop
  193.         % If the font extension is anything other than
  194.         % .pfa or .pfb, we assume it can't be rewritten
  195.         % using compressfont.
  196.         % Stack: fontname filename extension basename
  197.    (.cpf) concatstrings dup 5 1 roll (w) file
  198.         % Stack: outfilename fontname filename extension outfile
  199.    exch dup (pfa) eq exch (pfb) eq or
  200.         % Stack: outfilename fontname filename outfile bool
  201.     { exch pop compressfont
  202.     }
  203.     { 3 -1 roll pop
  204.       exch findlibfile pop exch pop
  205.       exch copyfile pop
  206.     }
  207.    ifelse closefile
  208.  } bind def
  209.  
  210. % ---------------- Production code ---------------- %
  211.  
  212. % The following code constructs a packed version of the commercial-quality
  213. % fonts available from Aladdin Enterprises.  To use this code:
  214. %    - If desired, change the output file names below.
  215. %    - Make sure you have the synthetic font data (fontmap.shs and the
  216. %      *.ps files for the commercial fonts) in a directory that is on
  217. %      Ghostscript's search path.
  218. %    - Construct the packed fonts by running
  219. %        gs -dNODISPLAY -dWRITESYSTEMDICT packfile.ps
  220. %    - If desired, move the output files to the directory that will be
  221. %      used at run time.  You no longer need the *.pfb or *.ps files
  222. %      for the original fonts; however, you do still need the Fontmap
  223. %      for these fonts, because it defines the font name aliases.
  224. %    - Add the following line to the end of gs_fonts.ps:
  225. %        (ALL.cmp) run
  226. %      (substituting the definition of allmapname if you changed it).
  227.  
  228. % Define the output file names.  The extensions are arbitrary;
  229. % any legal file name is allowed.
  230. /allname (ALL.cff) def        % the compressed font file
  231. /allmapname (ALL.cmp) def    % the Fontmap override file
  232.  
  233. % Load an alternate Fontmap that references the synthetic oblique and
  234. % narrow fonts.
  235. true .setglobal
  236. (fontmap.shs) findlibfile pop exch pop .loadFontmap
  237. false .setglobal
  238.  
  239. % Define the packaging of fonts into font groups.
  240. % Fewer larger groups compress better, but make decompression slower.
  241. /Lists [
  242. [    % The oblique and narrow fonts are synthetic,
  243.     % and take very little space.
  244.   /AvantGarde-BookOblique /AvantGarde-DemiOblique
  245.   /Courier-Oblique /Courier-BoldOblique
  246.   /Helvetica-Oblique /Helvetica-BoldOblique
  247.   /Helvetica-Narrow /Helvetica-Narrow-Oblique
  248.   /Helvetica-Narrow-Bold /Helvetica-Narrow-BoldOblique
  249. ]
  250. [/AvantGarde-Book /AvantGarde-Demi
  251.  /Bookman-Light] [/Bookman-LightItalic
  252.  /Bookman-Demi /Bookman-DemiItalic
  253.  /Courier] [/Courier-Bold
  254.  /Helvetica /Helvetica-Bold]
  255. [/NewCenturySchlbk-Roman /NewCenturySchlbk-Italic
  256.  /NewCenturySchlbk-Bold /NewCenturySchlbk-BoldItalic]
  257. [/Palatino-Roman /Palatino-Italic
  258.  /Palatino-Bold /Palatino-BoldItalic]
  259. [/Times-Roman /Times-Italic
  260.  /Times-Bold /Times-BoldItalic]
  261. [/Symbol
  262.  /ZapfChancery-MediumItalic
  263.  /ZapfDingbats]
  264. ] def
  265.  
  266. % We need to register the fonts under their true names, not aliases.
  267. /Lists Lists mark exch
  268.  { mark exch
  269.     {  { Fontmap 1 index get dup type /nametype ne { pop exit } if
  270.      exch pop
  271.        }
  272.       loop
  273.     }
  274.    forall ]
  275.  }
  276. forall ] def
  277.  
  278. % Squeeze the fonts to their .cpf format.
  279. (Squeezing... ) print flush
  280. /fdict mark
  281. Lists
  282.  { { dup squeezefont } forall } forall
  283. .dicttomark def
  284. (done.\n) print flush
  285.  
  286. % Invert fdict.
  287. /f2dict fdict length dict def
  288. fdict { exch f2dict 3 1 roll put } forall
  289.  
  290. % Construct the compressed font file.
  291. (Creating ) print allname print (... ) print flush
  292. /posdict fdict length dict def
  293. /all allname (w) file def
  294. all beginfilestring writestring
  295. Lists
  296.  { dup == flush
  297.    /fbegin all fileposition def
  298.    mark exch { fdict exch get } forall ]
  299.    all packfiles exch pop
  300.    /flength all fileposition fbegin sub def
  301.     { fbegin flength 3 -1 roll aload pop 4 packedarray
  302.       exch f2dict exch get exch posdict 3 1 roll put
  303.     }
  304.    forall
  305.  }
  306. forall
  307. all closefile
  308. (done.\n) print flush
  309.  
  310. % Write the Fontmap addendum for accessing compressed fonts.
  311. (Writing ) print allmapname print (... ) print flush
  312. allmapname (w) file
  313. dup (%!
  314. /.runpackedlibfile where{pop}{(gs_pfile.ps)runlibfile}ifelse
  315. .currentglobal true .setglobal
  316. ) writestring
  317. posdict
  318.  { exch 2 index exch write==only exch dup ({) writestring
  319.    dup allname write==only
  320.    exch { 1 index dup ( ) writestring exch write==only } forall
  321.    dup ( .runpackedlibfile}bind .definefontmap
  322. ) writestring
  323.  }
  324. forall
  325. dup (.setglobal
  326. ) writestring
  327. closefile
  328. (done.\n) print flush
  329.